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*eF LLE®* 1 De eMAKRVT 
MM MM AAAAAA KK KK RRRRRRRR VV VV sTTTTTITTTT ; 
MM MM AAAAAA KK KK RRRRRRRR VV VV TTTTTTTTTT 3 
MMMM MMMM AA AA KK KK RR RR VV vv TT 3 
MMMM MMMM AA AA KK KK RR RR VV VV TT PF 
MM MM MM AA AA KK KK RR RR VV VV TT P 
MA MMA MM AA AA KK KK RR RR VV VV TT : 
mM MM AA AA KKKKKK RRRRRRRR vv vv TT 3 
MM MM AA AA KKKKKK RRRRRRRR VV VV TT ; 
MM MM AAAAAAAAAA KK KK RR RR VV VV TT : 
MM MM AAAAAAAAAA KK KK RR RR VV VV TT : 
MM MM AA AA KK KK RR R vv ov TT geen F 
MM MM AA AA KK KK RR RR vow TT omen : 
MM MM AA AA KK KK RR R VV TT oeww : 
MM MM AA AA KK KK RR RR wv TT eeee : 
LL IIIII1 SSSSSSSS 3 
LL III111 SSSSSSSS 3 
LL II ss 3 
LL II SS 3 
LL II SS 3 
LL II SS 3 
LL II SSSSSS 3 
LL II SSSSSS 3 
LL II SS 3 
LL II Ss 3 
LL II SS $ 
LL II ss 3 
LLLLLLLLLL III SSSSSSSS 3 
LLLLLLLLLL HII11 SSSSSSSS : 
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MODULE MAKRVT ( 
LANGUAGE ( b1583¢). 
gbEnt = *'v04-000' 
= 


BEGIN 


‘ 
RRR A ARERR AAAAERAARAR RARER A EAE E EAE AERA EAA AERA ERAEEEE 


'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TW Y OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF TH 

i TRANSFERRED. 
'e 

'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
‘® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
7 CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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3 FACILITY: MOUNT Utility Structure Level 2 

! ABSTRACT: 

This module creates the relative volume table for a disk volume set. 
i ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 
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AUTHOR: Andrew C. Goldstein, CREATION DATE: 23-Oct-1978 11:12 
i MODIFIED BY: 


v03-003 HHO041 Hai Huang go-dy 
Remove REQUIRE ‘'LIBD$:CVASLIB.OBJJMOUNTMSG.B 


v03-002 CDS0002 Christian D. Saether 22-Aug-1983 
Teach 1/0 database search about system blocks. 


v03-001 CDS0001 Christian D. Saether 2-Aug-1983 
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base 1984 01:17:34 VAX-11 Bliss-32 V4.0-742 
4 Hn 3: 45:22 DISKSVMSMASTER: CMOUNT. SRCIJMAKRVT. B32. 7? * af 


14-Sep-19 
} H Remove reference to obselete RVX structure. ; 
1} v02=003 ACG0229 Andrew c. Soldstein, 4=Jan-1982 15:04 : 
1 : Add volume set name to R : 
1 | v02=002 AC 0178 Andrew C. Goldstein,  9-Jun-1980 13:35 : 
! kip magtapes and foreign volumes in mounted volume set search ‘ 
1 | v02=001 ACG0175 Andrew C. Goldstein, 23-May-1980 0 14:44 : 
} } Add 1/0 database lock cleanup, tie off RVT exten ° 
1/ v02=000 ACG0167 Andrew C. Goldstein 18-Apr-1980 13:38 ; 
a Previous revision history moved to MOUNT.REV : 
g ; 
1 LIBRARY > SYSSLIBRARY 21 18,152"; ‘ 
1 REQUIRE ‘SRC$:MOUDEF .B32'; : 


1984 01:17:34 VAX©11 BLiss-32_v4.0-742 p 3 
ory88e 3i15:3S Petals tae Gute Sacomaxave.es2n;* «2k 


<z 


-000 
: zy O68 } GLOBAL ROUTINE ENTER_RVT (NAME, NEW_UCB) = : 
Bo RII : 
; i eH | FUNCTIONAL DESCRIPTION: : 
; 83 a8 1! This routine finds the relative volume table of the volume set of this ; 
: «84 614 1! volume, if it exists, and enters the volume in the table. If the RVT ° 
3; «68S 615 1! does not exist, it creates it. This routine also does the initial : 
; & 016 1! binding of a new volume into a set. This routine must be called in kernel ; 
: 687 0617 1! mode. : 
BR Ret : 
; 620 1 ! CALLING SEQUENCE: : 
3 4! Be 1 : : ENTER_RVT (ARG1, ARG2) ‘ 
; 38 . 06 : 1 ! INPUT PARAMETERS: ; 
8 94 0624 1! ARG1: address of descriptor of volume set name ° 
; 4 $e ? : ARG2: UCB address of volume being mounted > 
: 97 0627 1 ! IMPLICIT INPUTS: 3 
3 oS $e 3 ! HOME_BLOCK: home block of volume being mounted : 
: 100 0630 1 ! OUTPUT PARAMETERS: 
; 13) Be 1 ' NONE . ! 
; 198 $e3 1! IMPLICIT OUTPUTS: 
: Ie bese ! REAL_RVT: address of RVT found or created 
: 106 0656 1 ' ROUTINE VALUE: 
; 4 ott : address of RVT 
: 109 0639 1 | SIDE EFFECTS: 
3; 110 0640 1! RVT may be created or modified 
2 2a. 0641 1! HOME_BLOCK altered if /BIND performed 
3 BT BOes 1! 
. 0643 1 !-- 
: 114 0644 1 
3: 6115 0645 BEGIN 
HB Baw 
: 118 0648 NAME : REF VECTOR; ! volume name string descriptor 
: 138 0680 9 LABEL 
: 131 bees SEARCH_LOOP; ! outer device search loop 
; 138 ee LOCAL 
> 124 0654 ENTRY_COUNT, ' number of entries needed in RVT 
3 125 655 SIZE, ' size of new RVT 
: 126 $26 DDB : REF BBLOCK, ' pointer to current DDB 
: 127 65 SB : REF BBLOCK, ' system block pointer 
3 : ; 028 ute : +} Berote’ ; pointer to current UCB 
: 1 660 RVT : REF BBLOCK, | pointer to current RVI 
5 «WS 661 NEW_RVT : REF BBLOCK, ! pointer to newly created RVT 
i 666 FCB : REF BBLOCK, ! pointer to current 
3 13 066 WINDOW : REF BBLOCK; ! pointer to current window 


pointer to current VCB 
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12286-1382 93315333 DISKSVMSMASTER: MOUNT. SRCIMAKRVT.B32: 1° (2) v 
> 134 0664 ; 
3: 339 0665 EXTERNAL ‘ 
: 136 p2e8 MOUNT_OPTIONS : BITVECTOR, ! MOUNT command options | : 
, ar 66 CLEANOP_FLAGS : BITVECTOR, ' cleanup action flags : 
; 138 0668 REAL_VCB : REF BBLOCK, ! address of VCB allocated : 
s ioy BOG? REAL _RVT : REF BBLOCK, ! address of newly allocated RVT ; 
; 140 0670 ed BLOCK : BBLOCK, ! volume home block buffer : 
> «(141 0671 SCHSGL_CURPCB =: REF BBLOCK ADDRESSING_MODE (ABSOLUTE) : 
: 145 pers ! address of process PCB ; 
; (14 067 SCS$GQ_CONFIG +: ADDRESSING_MODE (ABSOLUTE); ‘ 
> 144 0674 ! 1/0 database lListhead . 
3 145 0675 : 
: 146 0676 EXTERNAL ROUTINE ‘ 
3 «147 0677 LOCK_I0DB ' Lock 1/0 database mutex ; 
> 148 0678 UNLOCK. 1068, i unlock 1/0 database mutex ; 
3: 149 0679 ALLOCATE_MEM ! allocate dynamic memory : 
; 130 0680 2 DEALLOCATE_MEM; ! deallocate dynamic memory ; 
: 133 oeae 
36 6133 $683 ! Needless to say, the search must be done with the I/0 database locked to : 
> «154 0684 ! prevent List perturbations. We run down the DDB List, following the UCB : 
s 499 0685 ! List off each one, looking for file structured devices that are mounted ‘ 
s 136 0686 ! but not allocated. : 
5 See 0687 ! ; 
: 158 0688 ‘ 
a, i 0689 LOCK_I0ODB (); ; 
: 160 0690 CLEANUP_FLAGSCCLF_UNLOCKDB) = 1; : 
3 106 069 SB = .SCS$GQ_CONF IG; ‘ 
; 16 069 : 
3; «(164 0694 SEARCH_LOOP: ; 
g 165 0695 BEGIN : 
> 166 069 ; 
3; 167 069 UNTIL .SB EQLA SCS$GQ_CONFIG . 
; «168 0698 : 
: 169 0699 4 BEGIN ; 
; 170 0700 4 : 
3 (171 0701 4 DDB = .SB CSBS$L_DDB); : 
3 176 44 4 ; 
s 7 0705 4 WHILE .DDB NEQ 0 ; 
3 «174 0704 4 00 : 
3 W735 0705 5 BEGIN : 
; 176 0706 5 IF .DDBCDODB$B_TYPE) NEQ DYNS$C_DDB : : 
s 7 0707 é THEN BUG_CHECR we! ta FATAL, ‘Corrupted DDB List"); : 
: «4178 0708 UCB = .DDBCDDB$L_UCBI; ; 
: 179 th 5 ‘ 
; 180 710 5 UNTIL .UCB EQL 0 DO : 
: 181 0711 6 N 3 
3 136 orig 6 IF .UCBCUCBSB_TYPE] NEG DYN$C_UCB 3 
: 13? grt? ? THEN BUG_CHECR (NOTUCBUCB, FATAL, ‘Corrupted UCB List’); ‘ 
s 189 6918 6 IF .BBLOCKCUCB Uees pevenAnl. DEVEV_F 00) | $ 
3: «186 orig 6 AND .BBLOCKCUCBLUCBSL_DEVCHAR], DEVSV_MNT | : 
: 187 34 6 AN -BBLOCKCLUCBCUCBS$L_DEVCHAR], DEVS$V_FOR 3 
: «188 718 § AND NOT .BBLOCKLUCBLUCBSL_DEVCHAR], DEVS$V_SQD : 
3; «64189 0719 AND (IF .MOUNT OPTIONSCOPT_NOSHA : 
: 190 0720 8 THEN (.BBCOCKCUCBCUCBSL_DEVCHAR], DEVSV_ALL) : 
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1§ 1 217:34 VAX=11 Bliss-32 V4.0-742 Page 5 
14 1 93:18:33 DISKSVMSMASTER: CMOUNT . SRCJMAKRVT.B32;1> (2) 

; (191 0721 AND .UCBCUCB$L_ PID] EQL .SCHS$GL_CURPCBCPCBSL_PIDJ) 

; 136 4 § ELSE NOT JBBLOCKEUCBCUCBSL DEVE RJ, BEVSV ALLS - 

3; 194 $F 4 6 THEN 

; 39 0725 7 BEGIN | 

; 1% 07 § 7? VCB = pyceryceet yoo: 

: 197 0727 7 IF .VCBCVCBSB TYPE] NEQ DYNSC_VCB 

: bs of 8 4 THEN BUG_CHECR (NOTVCBUCB, FATAL, ‘Not VCB pointer in UCB"); 

: 200 0730 7 RVT = .VCBCVCBSL_RVTI; 

; 201 0731 7 IF .RVT NEQ 

; 4 07 ¢ 7 THEN IF .RVTCRVT$B_TYPE] NEQ DYNSC_UCB 

: 20 0733 7 THEN | 

; 204 bree 8 BEGIN 

; 205 0735 8 IF_ .RVTCRVT$SB_TYPE] NEQ DYNSC_RVT 

; 206 0736 8 THEN BUG_CHECR (NOTRVTVCB, FATAL, "Not RVT pointer in VCB'); 

; 207 0737 8 IF CHSEQC (.NAMECOJ, .NAMEC1), 

; 208 0738 8 RVT RUCNAME, RVTCRVTST_STRUCNAME], ' ') 

; 209 0739 8 THEN LEAVE SEARCA_LOOP; 

; 210 0740 7 END; 

; 2 0741 6 END; 

; ge Tok 6 UCB = .UCBCUCBSL_LINK); 

}. die 0743 5 ND; ! end of UCB scan loop 

> 214 0744 5 DDB = .DDBCDDBSL_LINK); 

; 62t9 0745 4 END; ! end of DDB scan loop 

; 216 0746 4 

3 ev 0747 4 SB = .SB CSBSL_FLINK); 

; 218 0748 3 END; ! of SB loop 

; 219 0749 3 

; $s 8739 2 END; ! end of block SEARCH_LOOP 

3s ee 0736 ! Compute the size RVT needed. If none was found, create one. If the volume 

3; geo 075 ' has a zero RVN, we are creating a new volume set (since we didn't find the 

> 224 0754 ! RVT). 

$s €eo 0755 ! 

; 226 0756 

; $35 Bree ENTRY_COUNT = MAXU (.HOME_BLOCKCHM2$W_RVNJ, .HOME_BLOCKCHM2$W_SETCOUNT)); 

; 229 0759 IF .DDB EQL 0 

; $30 0760 THEN 

: 231 0761 BEGIN 

; 33¢ 0768 IF .ENTRY_COUNT EQL 0 

: €e 076 THEN 

; Sze ihe 4 BEGIN 

; ¢ae 765 4 ENTRY COUNT = 1; 

; 236 B76 4 WORE BLOCK EAgeu RYN] = 1; 

; 337 767 4 HORE ~BLOCK HMO$W SET COUNT = 1; 

3; en 0768 4 REAL_VCBCVCB$W_RYN) = 1; 

. a 

: 241 148 RVT = ALLOCATE_MEM (MAXU (.ENTRY_COUNT+4, RVTSC_MINSIZE) * 4 + RVTSC_LENGTH, 0); 

3; 26 77 avitave TYPE] _= DYNSC_RVT; 

> 26 77 RVIERVTSB_NVOLS) = ENTRY cOuyT 

; vi ore yale ([NAMECO], .NAMECT], ' *, RVTSS_STRUCNAME, RVTCRYTST_STRUCNAME)); 

: 26 77 

3 26 aoe ! If we found an RVT, see if it is big enough. If not, allocate a new one, 
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copy the contents of the old to the new, fix up all pototers. and dispose 
of the old one. If the volume was not in a set, do the initial bind 


: 248 77 3 
; 249 g778 3 
; 250 0780 ass tgning the next higher RVN. Note that RVN 1 must be mounted for [ater : 
3 23 8 1 use (also assuring that RVT$SB8_NVOLS contains the size of the set). ; 
; 0} ELSE 
23 Ores IF_ .ENTRY_COUNT EQL 0 
: 257 Ore? THEN of 5 
: $2 r89 4 FE ERVTCRVTSL UCBLSTJ EQL 0 
; $26 790 & THEN cs ; 
3 26) 791 «5 BEGIN 3 
: o¢ O76 5 UNLOCK_IODB (); : 
; 26 0793 5 ERR_EXTT (MOUNS_RVNINOTMT); ; 
; 264 0794 4 : $ 
: 265 0795 4 ENTRY COUNT = .RVTCRVT$B_NVOLS) + 1; : 
; 266 0796 4 IF_.ERTRY_COUNT GEQU 256 : 
; 267 0797 4 THEN 3 
> 268 0798 5 BEGIN $ 
; $82 0799 5 UNLOCK_IODB (); ; 
: 270 0800 § ERR_EXTT (MOUNS_SETLIMIT); F 
; en 0801 4 ND; : 
: 272 0802 4 HOME _BLOCKTHN2$u RVNJ = .ENTRY_COUNT; ; 
3; 273 0803 4 REAL_VCBLVCB$W_RUN] = .ENTRY_COUNT; F 
: 274 C804 END; 3 
3 ae 0805 3 
; 276 0806 IF .RVTCRVT$W_SIZEJ LSSU .ENTRY_COUNT * 4 + RVTS$C_LENGTH : 
s- arr 0807 3 THEN $ 
; 278 0808 4 BEGIN 3 
; 279 0809 4 3 
; 280 0810 4 ! see" The RVT extend/copy code is tied off because the ACP uses RVT : 
: 281 0811 4 ! addresses in its cache descriptors. This results in the operational 3 
; 282 Bag 4 ! restriction of having to dismount and remount the volume set for each F 
; 283 0813 4 ! fourth volume added after the minimum RVT size (17). Volume sets of | : 
3: 284 0814 4 ! this size are at present of low probability. ; 
; +H 0815 4! : 
: 286 0816 4 $ 
; 287 0817 4 UNLOCK_IODB (); 3 
; 288 0818 4 ERR_EXTT (MOUNS_SETLIMIT); : 
; 289 0819 4 3 
; 344 Bag0 ? ! weeee End of tie-off. : 
: 332 0838 4 NEW_RVT = ALLOCATE _MEM (.ENTRY_COUNT * 4 + RVTSC_LENGTH, 0); : 
; 08 4 SIZE = .NEW PyICayy sy sige; 3 
: 94 824 4 CHSCOPY (.RUTCRVTS$W_STZE eRVT, O, .SIZE, .NEW_RVT); : 
; 99 8 5 4 NEW_RVTCRVTS$W_SIZEJ-= .SIZE: : 
3 97 8 : 4 INCR J FROM 1 TO .RVTCRVTSB_NVOLS) . 
; 298 828 4 DO | : 
; 299 829 2 BEGIN 3 
: 300 830 UCB = .VECTOR CNEW_RVTCRVTSL_UCBLSTJ, .J-1); 3 
3; wl th : IF .UCB NEQ 0 3 
: Oe 8 § THEN F 
: 30 Ht 6 BEGIN 3 
; 304 0834 6 vCB = .UCBCUCBSL_VCB); : 
| 
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VCBLVCBSL_RVT) = .NEW_RVT; 


FCB = .VCBCVCBSL peer: 
"Hae -FCB EQL VCBCVCBSL_FCBFLI 


ar 


4:17:38 VAX-11 
2:45:22 DISK$V 


BEGIN 
WINDOW = .FCBCFCBSL_WLFL]; 
UNTIL .WINDOW EQL FCBCFCBS$L_WLFLI 


BEGIN 
WINDOWCWCBSL_RVT] = .NEW_RVT; 
yinoow = .WINDOWCWCBSL_WCFLI; 


END; 
FCB = .FCBCFCBSL_FCBFLI; 
END; 


END; 
DEALLOCATE_MEM (.RVT, 0); 
RVT = .NEW_RVT; 
END; 

END; 


' Check the UCB pointer we are about to store into. If it is non-zero, 
a volume with the same RVN is already mounted 
] 


i CRVTCRVTSL_UCBLSTJ, .HOME_BLOCKCHM2$W_RVNJ-1) NEQ 0 


BEGIN 
UNLOCK_IODB (); 
ERR_EXTT (MOUNS_DUPRVN) ; 


RVICRVISW_REFC] = .RVTCRVTSW_REFC) + 1; 
RVTCRVT$B-NVOLS) = MAXU (.RVTCRVT$B_NVOLS], .ENTRY_COUNT); 
VECTOR CRUTCRVTSL_UCBLSTJ, .HOME_BLOCKCHM2$w_RVNJ-T) = .NEW_UCB; 


UNLOCK_I0DB (); 
CLEANUP FLAGSCELF_UNLOCKDB] = 0; 


L 
RETURN .RVT; 
END; ! end of routine ENTER_RVT 
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. UNL 
~EXTRN DEALLOCATE i] 
-EXTRN BUG 


<2 


! Finally fix up the entry count in the RVT and store the new UCB pointer. 


OCATE_MEM 
BUGS_RNOTDDBDDB 
“NOTUCBUCB, BUGS"NOTVCBUCB 
“EXTRN BUGS-NOTRVTVCB 
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MAKRVT 


V04=000 sae 


-PSECT SCODES,NOWRT,2 
OFFC 00000 -ENTRY ROWAN Save R2,R3,R4,R5,R6,R7,RB,R9,- 


00006 CF FB 0000 CALL 
00006 CF a3 eB 0007 B1SB ma CLEANUP FLA FLacses 
5 000000006 9F DO 00 ¢ MOVL aa§CS 
000000006 33 D1 13 1$ CMPL &5 pscsSca. OF 
1 1A BNEO $ 
0099 1C BRW 5$ 
54 54 a3 p 1F 33 MOVL 84(SB), DDB 
0 3 5 BNE  4$ 
008A : 00 BRW 14$ 
06 OA AG | 0028 4$ CMPB =s-«10(DDB), #6 
04 13 0002C BEQL 46=s«5$ 
Aene 00 BUGW 
0000* 99 .WORD  <BUG$_NOTDDBDDB! 4> 
58 04 Ab 09 0032 5$: MOVL 4 (DDBJ, UCB 
74 13 00036 6$: BEQL 13$ 
10 0A A8 91 000 CMPB  =s-«10( UCB), _ #16 
04 13 0003Cc BEQL «6s 7$ 
pene 003€ BUGW 
90 O* 00040 “WORD  <BUGS NOTUCBUCB! 4> 
50 38 8=6AB SE 00042 7$ MOVAB $e (UCB) 
5¢ 60 of E1 00046 BBC #14, CRO) 128 
58 60 13 £1 OO04A BBC #19. (RO). 1 
54 03 Ad £8 OO4E BLBS =—_-3¢RO) 128 
50 60 05 £0 0005 BBS WS, ( tho} 
14 00006 CF 04 £1 00056 BBC a MOUNT OPTIONS, RE 
46 60 17 €1 0005¢ BBC #28 et 
50 000000006 9F DO 000 MOVL § a@A#SCHSGL fy RPCB, RO 
60 Ad 2c Ag D1 0006 CMPL 44(UCB), ~96(RO) 
3 if 006C BNEQ 128 
04 1 O06E BRB 9$ 
32 60 17 £0 00070 8$: BBS #23, (RO), 128 
SA 34 AB oO 0074 9$: MOVL 52(UCB), vce 
OA AA \ 0078 a 10(VCB). #1 
04 13 0007C BEQL 108 
FEFF 0007 BUGW 
0000* 000 .WORD  <BUG$_NOTVCBUCB!4> 
57 20 AA OD 00 10$:  MOVL 32(VCB), RVT 
1 13 00 BEQL 12$ 
10 OA ar 9 99 CMPB  =s-:« LO(RVT), #16 
18 «1 Cc BEQL 12$ 
OE 0A A? 91 000 cM 1O(RVT), #14 
04 1 9 BEQL 118 
FEFF 00094 BUGW 
0000* 000 WORD <BUGS eg NUSUCE SD 
50 04 pO 98 11$:  MOVL NAME, 
0c 20 04 80 D 0009 CMPCS (RO). @4(RO), #32, #12, 12(RVT) 
158 
48(UCB), UCB 
6$ 
(DDB), DDB 
3$ 
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